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AMSTRAD 


EDITORIAL 


Si bien, la elección de un ordenador es 
importante, más importante es todavía el saber 
estructurar las instrucciones para lograr una 
mayor eficacia. 

La utilización de un método estructurado facilita 
el desarrollo de los programas y sus posibles 
modificaciones si fueran precisas. De esta 
forma, veremos que programar no consiste en 
escribir el mayor número posible de líneas, sino 
que es mucho más interesante la calidad que la 
cantidad. 

Por esto, una sugerencia que os hacemos, es 
que intentéis variar los programas que os 
listamos e intentéis mejorarlos. 

Suerte. 
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EKPLICHCIOH 

PROGRRHRS 


GLOBOS 


10 

REM * ANGEL GARCIA DFI GATIO 

20 

MODE 0 




30 

INK 0,0 

;INK 1,2< 

s:INK 2,; 

II 

40 

PAPER 0 

:BORDER ( 

0 


50 

ORIGIN : 

318,210 



60 

FOR a=0 

TO 2*PI 

STEP PI/70 

70 

PLOT o,( 

0,2 



80 

DRAW 300-X-C0S (a) 

,150*SIN 

(a) 

90 

DRAWR O 

,30*SIN(a),3 



100 NEXT a 

110 PRINT CHR*(22)+CHR*(1); 

120 A$="GLOBO":A=11-(O.5*(LEN(A$))) 


130 

140 

LOCATE 

PRINT ( 

a, 12 :pr: 

:HR$(22) 

I NT as; 

t-CHR$ (0) 

150 

INK 

2, • 

7,o: ink ; 

3,0,18 

161 

1 

FOR 

a=, 

1 TO 300 

:SOUND 1 

171 

0 

INK 

2, . 

13,7:INK 

3,7,18 

130 

FOR 

a=‘ 

300 TO 1 

STEP -2 

190 

I NK 

2.- ' 

7:INK 3, 

13 

200 

FOR 

a= 

1 TO 500 

:next a 


a.1.15:NEXT a 


SOUND 1 , a, 1 :SOUND 2,a*2,l:NEXT a 
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210 FOR a=0 TO 50:PRINT CHR$(7):F0R b=i TO 50:NEXT b:NEXT a 
220 MODE 1 


23 

0 

GOTO 230 









rKIN 1 

1MB(2U-LtN(ai)/2 

):FOR a= 

1 TO LEN 

(a$ > 




2b O 

u =p—ri i \ . a. j, 

/ • rKil'J 1 1 

D=p' . Ir 1 HbN rKilN 1 LrlKíl/) t 



260 

NEXT a 









270 

PRINT: 1 

PRINT:FOR a=t TO 

70n:NFXT a! RPTIIPM 




280 

REM *** INICIO 

DEL FROGRAMA 





290 

a$="< < 

GLOBO > 

>":GOSUB 

240:PR11 

NT 





300 

A$="RECOGE CON 

TU GLOBO A LOS i 

HOMBRES" 

:GOSUB 240:A$="PER0 SIN 1 

= I NCHARLl 

D CON" 

: GO: 

3IJB 240 

:A$="LOS 

ALFILERES 0 LAS 

TIJERAS 

. ":GOSUB 

2 



40 









o 1 O 

print :i 

4*5= CONTROLES: " : ( 

GOSUB 241 

J 





320 

A$="Q. 

AKKIB A" 

¡GOSUB 240:A$="A 

. ABAJO" 

:GOSUB 240:A$="0. IZQUIERDA":GOSl 

JB 240 

* A cfc- 

— " o ncrDcruA" ■ cficiid n/i 







« M - 

i « JJ t K t L nn • uU OU C ¿L U 








3 

PRI NT:i 

a$=" PULSi 

Q — P — PAPA PMPP7AD » • cnQI 11 

r o/in 




340 

IF INKI 

EY (60 ) < >i 

“ O i M r\ M c. rir C. ¿L ri rx ■ ÜUOUI 

3 THFN ^40 

D jC 




350 

GOSUB i 

660 








360 

INK o,: 

23:PAPER 

0: BORDEI 

? 23:PEN 

1:INK 1 

, 0 




370 

MODE 0 

: INK 2.1( 

o:INK 4,: 

26:INK 3, 

. 6 





380 

WINDOW 

M. 1,20 

, 1,3: PAPER P.1,4: ( 

;ls p.1 





390 

WINDOW 

1.20.4,: 

25 







401 

3 

P=o: FA= 

=0:GOSUB 

630 







41i 

3 

PEN 2:1 

-OR A=1 ' 

ro 20 :x=: 

l+INT<RND*13>:Y=: 

L + INT <RND*19) 



4 2< 

3 

LOCATE 

Y . x: I F 1 

RND>0.5 ■ 

rHEN print"q"; else prin - 

r" h"; 



43< 

3 

SOUND 

1 , A, 2 








44( 

3 

NEXT 









45< 

3 

PEN 3:F 

-OR A=1 ■ 

ro i5:x=: 

L + INT (RNDK-13) : Y=J 

L+INT(RND*19> 



46( 

3 

SOUND 2.50-A.2 








47( 

3 

LOCATE 

Y, x:PRINT"e"j:NEXT 






48( 

3 

X=10:Y= 

=9:XB=X:' 

r’B = Y 







49( 

3 

IF NOT 

INKEY(67) TREN > 

<=x-i:IF 

X<1 THEL 

•1 X= 1 




50( 

3 

IF NOT 

INKEY(69) THEN X=X+1:IF 

X >13 THEN X=18 




51i 

3 

IF NOT 

INKEY(34) THEN ' 

r‘=Y -1: IF 

Y <1 THEN Y= 1 




52< 

) 

IF NOT 

INKEY(2, 

7 > THEN s i 

r=Y+i :if 

Y >13 THEN Y= 18 




53( 

3 

LOC ATE 

Y,x:GOSl 

JB 590:LOCATE Y+J 

L,X:GOSUB 590 




54C 

) 

LOCATE 

Y , X + 1 : GC 

JoUB 590: 

LOCATE Y 

'+1,X+l:GOSUB 59C 

) 



55C 

) 

PEN 1 :L 

.OCATE Yí 

?, XB: PRlh 

JT" "¡LOCATE YB, 

XB +1:PRI 

NT" " 



56C 


PPM 1■1 

.OCATE Y. 

X:PRI NT" 

h. " • i n r a 

. t P V V 4- 1 

•PPTM7"r 

j M 



57C 

) xb=x:yí 

> = Y 

aU ■LUbr 

1 1 ti, I ■ A “ A 

i r M IN 1 (_ 

. u 



58C 

) 

GOTO 490 








59C 

) 

CALL 3C 

)000:C = PEEK< 29999 

') 






60C 

) IF C=1C 

U THEN F 

•OR A=1OC 

i TO 200 

STEP 4:SOUND 1,A 

1, 1 : NEXT: p = p+15: GOSUB 630 


610 

IF C=1C 

)3 OR c=l 

04 THEN 

SOUND 2. 

50,15,15 

¡,o,o,3i: 

FA=FA+1:GOSUB 630 


620 

RETURN 

P.1,2,2: F 

’RINTFtl , " 







630 

LOCATE 

PTOS:"j P 

:LOCATE 

p.1 , 14.2: 

PRINTP.1 , "FA: " ; FA 



Atin 

I F FA >4 

L TUCM "7QD 







65C 

) 

RETURN 









660 

DATA 205.96.137 

',50,47,1 

17,201 






670 

RESTORE 

660 








68C 

) 

FOR a=3 

;oooo to 

30006:READ b:POKE a,b:NE 

XT a 




69C 

) 

SYMBOL 

AFTER 97 








70C 

) 

SYMBOL 

97,7,25. 

50,102,78,142,156.156 





7 1C 

) 

SYMBOL 

98,224,1 

52,76,102,114,11 

3.57,57 





72C 

) 

SYMBOL 

99.221.1 

01,63,19 

,8,15,7, 

7 
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■>30 SYMBOL 100.187. 166.252.200. 16.240.224.224 
740 SYMBOL 101.56.56,16.254.16.40.68.130 
750 SYMBOL 102.18.0.68.16,129,40,2,72 
760 SYMBOL 103.6,0.3,16.32.04.0,0 
770 SYMBOL 104.231,165,231.104,16.40,68,130 
780 RETURN 

790 REM -ti** GAME OVER *** 

300 FOR A=1 TO 20IF0R B=100 TO 200 STEP AISOUND 1,B,1,15,0,0,31:NEXT B:NEXT A 
310 INK 0.0:INK 1,26:INK 2.15.O:PAPER O:BORDER O: PEN 1:MODE O 
320 PEN 2:L0CATE 6,7:PRINT"GAME OVER" 

330 PEN 1 : LOCATE 4,12:PRINT"PUNTOS:"¡USING " RP.RRP.Pt " ; P 
S40 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? <S/N>" 

850 FOR A=1 TO 50 : A$=INk'EY$: NEXT A 
360 PEN 1 

870 IF INKEY(60)=0 THEN RUN 220 
380 IF INKEY(46)=0 THEN CALL O 
390 GOTO 870 
























Ew:'j P ivAvi 

E2 



F&ftvd Ewfl Ex-fe : i f:'-:':'x'j \v/»A Vsss/A V»»A V//.V. 
Ivs/Aj pA-rtti V/AvA VAPAi V'/AvA VAA/Ai VAAA VAv/A V/AsAA £ 


PENALTY 


10 REM * ANGEL GARCIA DELGADO * 

20 MODE O:G O S U B 790 

30 INK 0,0: INK 1,26: INK 2,7:*INK 3,13 

40 PAPER 0:B0RDER O 

50 ORIGIN 318,210 

60 FOR a=0 TO 2*PI STEP PI/70 

70 PLOT 0,0,2 

80 DRAW 300*CGS(a),150*SIN(a) 

90 DRAWR O,30*SIN(a),3 
100 NEXT a 

110 PRINT CHR$(22)+CHRS(1); 

120 A$="PENALTI”:A=11-(O.5*<LEN(A$>)) 

130 LOCATE A,12:PRINT A*; 

140 PRINT CHR*(22)+CHR$(O); 

150 INK 2,7,0:INK 3,0.13 

160 FOR a=1 TO 300:S0UND 1,a,1,15:NEXT a 
170 INK 2,13,7:INK 3,7.13 

130 FOR a=300 TO 1 STEP -2:S0UND l.a.lISOUND 2.a*2.l:NEXT a 

190 INK 2.7:INK 3.13 

200 FOR a=l TO 500:NEXT a 

210 FOR a=o TO 50:PRINT CHR$(7):F0R b=1 TO 50:NEXT b:NEXT a 
220 NODE 1 
230 GOTO 230 

240 PRINT TAB(20-LEN(a$)/2):FOR a=1 TO LEN(a$) 

250 b$=MID$(a$.a.1)¡PRINT b$;:lF b$<>" " THEN PRINT CHR$(7>; 

260 NEXT a 

270 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
280 REM *** INICIO DEL PROGRAMA *** 

290 a*="<< PENALTI > >":GOSUB 240:PRINT 

300 A$="PROCURA COLAR EL BALON":GOSUB 240:AÍ="EN LA PORTERIA. SIN"¡GOSUB 240:A$= 
"QUE EL PORTERO LA RECOJA":GOSUB 240 

310 PRINT:A$="PARA LANZAR EL BALON"¡GOSUB 240:A$="PULSA LA TECLA SPACE"¡GOSUB 24 
O 

320 PRINT: a$=" PULSA -S- PARA EMPEZAR 11 : GOSUB 240 
330 IF INKEY(60) < >0 THEN 330 
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340 1 

P=0:FA=0:INK 0.18:INK 1.0:INK 2.2ó:lNK 3.8 



350 1 

PAFER 0:B0RDER 18 



360 1 

MODE 1:GOSUB 730 



370 i 

WINDOW M,1,40.24.24:GOSUB 700 



380 

WINDOW P.2. 1.40.21.21 



390 

400 

A$="PULSA SPACE PARA DISPARARGOSUB 680 



x-17:v-20 



410 

vP=16+INT(RND*9):D=1:DP=-1 



420 

LOCATE YP,5:PRINT"a"¡LOCATE YP.ó:PRINT"b" 



430 

LOCATE Y.X:PRINT" 



440 

Y = Y + D:IF Y >35 THEN D=-l 



450 

IF Y < 5 THEN D = 1 



460 

LOCATE Y. X : PRINT" c " : CALL LBD19 



470 

IF NOT IN K E Y(47) THEN 490 



480 

GOTO 430 



490 

500 

510 

520 

530 

FOR A=100 TO 200 STEP ó:SOUND l.A.l:NEXT 

LOCATE YP.5:PRINT" "¡LOCATE YP.ÓIPRINT" " 

YP = YP + DP¡ IF YP >24 THEN DP=-1 

IF Y P <16 THEN DP=1 

LOCATE YP.5¡PRINT"a"¡LOCATE YP.6:PRINT"b" 





540 

LOCATE Y.X¡PRINT" ”¡X=X-1¡IF X<4 THEN 580 



550 

LOCATE Y.X¡PRINT CHR$(102-X/7); 



560 

IF X=5 OR X=6 THEN IF Y=YP THEN 630 



570 

GOTO 500 



580 

590 

600 

610 

620 ' 

GOSUB 730¡IF Y<15 OR Y>26 THEN 650 

ENT 1,20,-3, 1:SOUND 1.100.15.15.0.1 

P=P+15¡G0SUB 700 

AS= 11 GOOOOL."¡FOR N=1 TO 4¡ GOSUB 680¡NEXT 



bUTO 360 



630 

GOSUB 730¡SOUND 2,100,5,15,0,0,31:A$="PARADA DEL PORTERO’ 

‘ ¡GOSUB ¿ 

i>30 

640 

GOTO 660 



650 

SCUND 4,300¡A$=”LA PELOTA HA SALIDO FUERA"¡GOSUB 630 



660 

FOR A=1 TO 100¡NEXT¡FA=FA+1¡GOSUB 700 



Ó 7:0 

FOR A=1 TO 600¡NEXT¡GOTO 360 



680 

CLS P.2: PRINTP.2, TAB (20-LEN (A¥)/2); 



690 

FOR A=1 TO LEN <A$):PRINT P.2 , MI D$ ( A$ , A , 1 ) ; CHR$ ( 7 ) ; : NEXT : f 

RETURN 


700 

LOCATE M . 5. 1 ¡PRINTM . "PUNTOS: ” ¡ P: LOCATE fcl . 26. 1: PRINTM 

, "FALLOS: 

: "; FA 

710 

IF FA >4 THEN 360 



720 

RETURN 



730 

PLOT 0.250.2:DRAW 100,300:DRAW 530,300:DRAW 630.250 



740 

PLOT 150.300:DRAW 0.100:DRAW 630,100:DRAW 480.300 



750 

PLOT 180.300:DRAW 80,150:DRAW 550,150:DRAW 450.300 



760 

PLOT 214.302,3:DRAW 214,330:DRAW 630-214,380:DRAW 630-21‘ 

T. 302 


770 

PLOT 210,302:DRAW 210.384:DRAW 630-210,384:DRAW 630-210.; 

302 


780 

RETURN 



790 

SYMBOL AFTER 97 



300 

SYMBOL 97,60. 126.90, 126,60,24,126,255 



310 

SYMBOL 98,189,189.139.60,36,36,102,231 



320 

SYMBOL 99.60.126.255,255,255,255,126.60 



330 

SYMBOL 100,0,60,126,126,126,126,60,0 



840 

SYMBOL 101.0.0.24.60.60.24,0.0 



350 

RETURN 



860 

REM *** GAME OVER *** 



370 

FOR A=1 TO 20:F0R B=100 TO 200 STEP AISOUND 1,B,1,15,0,0. 

.31:NEXT 

b:next a 

380 

INK O.OIINK 1.26:INK 2,15,0:PAPER 0:BORDER OIPEN 1:MODE ( 

5 
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390 

900 

910 

920 

930 

940 

950 

960 


PEN 2:L0CATE ó.7:PRINT"GAME OVER" 

PEN 1 : LOCATE 4 . 12 : PRI NT " PUNTOS : " ; US ING " PtPtftPtPtPt" í P 
PEN 3:INK 3.15:L0CATE 5.17:PRINT "OTRA? (S/N)" 

FOR A=1 TO 50:A$=INKEY$:NEXT A 
PEN 1 

IF INKEY(60)=0 THEN RUN 220 
IF INKEY<46>=0 THEN CALL O 
GOTO 940 



1986 - AMIGOS DEL AMSTRAD - 9 

















EÜÜ53 E:*Xvd fcviwd ESI5 tx'x-ij k*A¥d t:‘:':':':^ Ex-:':': 


fj'X'x'i Px'x : :'¿ Exv:‘:-i Ex'x-.'-d E¿wJ Váa-a-Í Pi : :'-;-: : ; : j Pfevái Paa'asÍ § 
p^ES tEES E7E3 EPE FEP3 EPEP PEP3 FPE3 EP351 EP55 


PUZZLE 


10 REM * ANGEL GARCIA DELGADO * 

20 MODE O 

30 INK 0.0:1NK 1.26:INK 2,7:INK 3,18 
¿10 PAPER 0:B0RDER O 
50 QRIGIN 318.210 
60 FOR a=0 TO 2*PI STEP PI/70 
70 PLOT 0.0.2 

80 DRAW 300*C0S<a),150*SIN<a) 

90 DRAWR O,30-X-SIN(a),3 
100 NEXT a 

110 PRINT CHR$(22)+CHR$(1); 

120 A*="PALABRAS" : A=11 -(O.5* <LEN(A$)>) 

130 LOCATE A.12:PRINT A$; 

140 PRINT CHR*(22) +CHR3M0) i 
150 INK 2,7,0:INK 3,0,13 
160 FOR a=1 TO 300:S0UND 1, 

170 INK 2.18.7:INK 3,7.13 
130 FOR a=300 TO 1 STEP -2: 

190 INK 2,7:INK 3,18 
200 FOR a=1 TO 500:NEXT a 
210 FOR a=0 TO 50:PRINT CHR$(7):F0R b= 

220 MODE 1 
230 GOTO 230 

240 PRINT TAB(20-LEN(a$)/2):FOR a=l TO LEN(a$) 

250 b$=MID$(a$.a. 1) :PRINT b$;:lF b$< > ” 11 THEN PRINT CHR$(7); 

260 NEXT a 

270 PRINT:PRINT:FOR a=1 TO 200:NEXT a:R E T U R N 
280 REM *** INICIO DEL PROGRAMA *** 

290 a$="<< PALABRAS >>":G03UB 240:PRINT 

300 A$="REUNE LAS LETRAS DE LA PANTALLA":GOSUB 240:AS¡= 

A FORMAR " : GOSUB 240: A$=LA PALABRA QUE SE TE MUESTRA 
":GOSUB 240 

310 PRINT:A$="CONTROLES:":GOSUB 240:A$="Q. ARRIBA":GOSUB 240:A*="A. ABAJO":GOSUB 
240:A*="0. IZQUIERDA":GOSUB 240:A$="P. DERECHA":GOS 


a.1,15:NEXT a 

SOUND 1,a,1:SOUND 2.a*2,1:NEXT a 

■1 TO 50:NEXT b:NEXT a 


'EN EL ORDEN CORRECTO. PAR 
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UB 240 

320 PRINT:a$="PULSA -S- PARA EMPEZARGOSUB 240 
330 IF INKE Y(60)< >0 THEN 330 
340 GOSUB 600 

350 INK O.O:PAPER O:BORDER 0:M0DE 1 
360 INK 1.26:INK 2,8 

370 RESTORE 590:F0R A=1 TO 1+INT(RND*14>:READ T $:NEXT 

380 PEN 2:LOCATE 1.3:A$="LA PALABRA ES:":PEN 1:GOSUB 240:Aí = Tí:GOSUB 240 
390 FOR A=1 TO 2000:NEXT 

400 PEN 2:F0R A=1 TO 25:PRiNT STRINGÍ(40,"a”);:NEXT 

410 WINDOW fcl,2,39,2,4:WINDOW Pt2,3,38,3,3 : WI NDOW 2,39 . ó , 24 : CLS Ptl:CLS:CLS P.2 
420 PEN ÍIFOR A=1 TO LEN (Tí) 

430 Y= 1 + I NT ( RNDK-38 ) : X= 1 + INT ( RND*1 8 ) : IF X=10 AND Y=19 THEN 430 

440 LOCATE Y.X:CALL 30000:IF PEEK(29999)=32 THEN PRINT MIDí<Tí.A. 1 ) ! ELSE 430 
450 NEXT 

460 x=io: y= io: xb=x:yb=y 


470 

IF 

NOT 

INKEY(67) 

THEN 

1 

X 

II 

X 

: IF 

x< 1 

THEN X=1 

480 

IF 

NOT 

INKEY(69) 

THEN 

X=X+l: 

: IF 

X > 1 9 

THEN X=19 

490 

IF 

NOT 

INKEY<34) 

THEN 

Y = Y -1: 

: IF 

Y < 1 

THEN Y=1 

500 

IF 

NOT 

INKEY(27) 

THEN 

Y = Y + 1: 

: if 

Y >38 

THEN Y=38 


510 LOCATE Y,X:CALL 30000:C=PEEK(29999) 

520 IF 064 AND C<91 THEN RÍ=RÍ+CHRÍ(C>:P=P+5:PRINTR2.Rí:FOR A=100 TO 200 STEP 4 

:SOUND 1 ,A, 1¡NEXT: IF LEN(Rí)=LEN(Tí) THEN 560 

530 IF C = 99 THEN IF XOXB OR Y< >YB THEN GOTO 710 

540 LOCATE Y B,X B:PRINT "c"; ¡LOCATE Y,X:PRINT"b"; :yb = v:XB = X 

550 GOTO 470 

560 CLS:LOCATE 1,5:IF TÍ=RÍ THEN PRINT " CORRECTO !!I":PRINT:PRINT" BONO DE 5000 
PUNTOS":FOR A=1 TO 400:SOUND 1.A.1.15:NEXT:P=P+5000 
570 IF Tí<>RÍ THEN PRINT" INCORRECTOPRI NT:PRI NT" LA PALABRA ES: ";Tí 
530 GOTO 710 

590 DATA AMSTRAD.ESTERNOCLEIDOMASTOIDEO.CORAZON.UNIDAD.PORTACIONES,PENICILINA.CU 

CHARADA,CARACOL,SALAMANDRA.HIBRIDACION,ORBITAL,CELUL 

A.IMPRESORA.MICROORDENADOR 

600 DATA 205,96,137,50,47.117.201 

610 RESTORE 600 

620 FOR a=30000 TO 30006:READ b:POKE a.b:NEXT a 
630 SYMBOL AFTER 97 

640 SYMBOL 97.0,239,239.239,0,254.254,254 
650 SYMBOL 98,60,126.153.189,255.195.102.60 
660 SYMBOL 99,0.0,36.0.0.36.0.0 
670 RETIJRN 

630 SYMBOL 97.0,239,239,239,0,254.254.254 
690 SYMBOL 93,60,126,153,189,255,195,102,60 
700 SYMBOL 99.0,0,36,0.0.36.0.0 
710 REM *** GAME OVER *** 

720 FOR A=1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1,B.1.15.O.O.31:NEXT B:NEXT A 
730 INK 0,0:INK 1,26:INK 2,15.0:PAPER O:BORDER 0:PEN 1:MODE O 
740 PEN 2:LOCATE ó.7:PRI NT"GAME OVER" 

750 PEN 1 : LOCATE 4 . 1 2 : PR I NT " PUNTOS : " ; US I NG " PtPtPtPtM»," ; P 
760 PEN 3:INK 3.15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

770 FOR A=1 TO 50:Aí =INKEYÍ:NEXT A 
730 PEN 1 

790 IF INKEY(60)=0 THEN RUN 220 
800 IF INK E Y(46)= O THEN CALL O 
310 GOTO 790 
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PIRAMIDE 








10 REM * 

20 MODE 

ANGEL GARCIA DELGADO * 

0 








40 PAPER 

50 ORIGI 

60 FOR a 

70 PLOT 

. . í ink i . ¿a . i nk 

o:border o 

N 318.210 

=0 TO 2*PI STEP 

0.0.2 

¿./¡INK 

PI /70 

3,18 








30 DRAW 300-X-C0S < a) . 150*SIN < a) 

90 DRAWR 0.30*SIN(a).3 
100 NEXT a 

110 PRINT CHR$<22>+CHR$<1); 

120 A$="PIRAMIDE":A=11-(O.5*<LEN(A$) > > 

130 LOCATE A.12:PRINT a$; 

140 PRINT CHR$(22)+CHRÍ(O); 

150 INK 2.7.0:INK 3.0.13 

160 FOR a=l TO 300:S0UND 1.a.1,15:NEXT a 
170 INK 2.13.7:INK 3.7.18 

130 FOR a=300 TO 1 STEP -2:S0UND l,a.l:SOUND 2.a*2.1:NEXT a 

190 INK 2.7:INK 3.13 

200 FOR a=1 TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHR$(7):FOR b=l TO 50:NEXT b:NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a$)/2):FOR a=l TO LEN(a$) 

250 bS=MID*<a*.a.1>:PRINT b$;:lF b$<>" " TRIEN PRINT CHR9¡<7); 

260 NEXT a 

270 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
230 REM *** INICIO DEL PROGRAMA *** 

290 a*="< < PIRAMIDE >>“:GOSUB 240:PRINT 

300 A$="ALCANZA LA CIMA DE LA PIRAMI DE":GOSUB 240:A$="RECOGIENDO LOS TESOROS. PE 
RO SIN":GOSUB 240:A$="CHOCAR CONTRA EL FANTASMA":GOS 
UB 240 

310 PRINT:A$="CONTROLES:":GOSUB 240:A$="Q. ARRIBA":GOSUB 240:A$="A. ABAJO":GOSUB 
240:A$="0. IZQUIERDA":GOSUB 240:A$="P. DERECHA":GOS 
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T\ 













































i m n .-i n 











Ub 2 4 U 

320 PRI 

330 TF 

NT:a$="F 

ULSA -S- 

)<>0 THE 

DADA DMDD7AD"•r 

.nci id T,ir 

.. 





TMKFY(Af 

N 330 







340 GOSUB 970 








350 PAPER OIBORDER 0:INK 0.0:MODE 1 







360 INK 

1.26: INK 2 . 15: I 

NK 3.18 








370 WINDOW ftl.2 

.39.1.1: 

WINDOW 1 

.40.4.25 






330 P=C 

:0=3:gos 

UB 730 









390 PER 

2:GOSUE 

760 









400 x =1 

410 XM= 

420 IF 

430 IF 

7» Y = 2 U • AD = A¡ Y X5 = í 

~7 * V M — *3 r\ • D V — V M ■ TDV 

— VM 







NflT T WkTY < A ) THFN Y = V-1 








NOT INKE 

Y(69) THEN X=X+1 








440 IF 

NOT INKEY(34) THEN Y=Y-1 








450 IF 

NOT INKEY(27) THEN Y=Y+1 








460 LOCATE Y.X: 

CALL 30000:C=PEEK(29999) 







470 IF 

C = 97 THEN X = XB:'i 

= YB 








430 IF 

C=93 THEN 1070 









490 IF 

C=101 OR 

C=100 THEN P=P+ 

75:GOSUB 

730 

NT CHR$( 





500 PER 

510 xb= 

520 IF 

530 IF 

i:LOCATE yb.xb: 

x : v b = v 

PRINT" " 




!‘LOCATE 

Y . x r PRI 




xm<x THEN xm=xm+ 

xrn>x THEN xrn = xrn- 

1 








1 








540 LOCATE vm.xm:CALL 30000 : C=PEEK < 29999 ) 






550 IF 

C < >32 THEN XM = BX 









560 IF 

ym<y THEN ym=ym+ 

0.5 








570 IF 

yrn>y THEN ym=ym- 

0.5 








530 LOC 

ATE YM . XM : CALL 30000:C=PEEK(29999 ) 






590 IF 

600 IF 

610 IF 

620 PEN 

C >24/ THEN 1070 

C = 93 THEN B Y = Y N 

C < >32 THEN YN = BY 

3: LOCATE BY.BX : 

















PRINT" " 

;: LOCATE 

YM.XM:PRTWT"h"S 





630 B X = 

XM:B Y = Y M 










640 IF 

x=5 THEN 

ÓÓO 









650 GOTO 420 










660 ENT 

1 . 10.-2 

. i : FOR A 

=1 TO ioo:sound 

1 . A.10.1 

5.0.1:NEXT 




670 MGD 

E i:loca 

TE 1.5:A$="L0 CONSEGUISTE !!!": GOSUB 240 





630 A$= 

690 PRI 

7nn p = p 

1t LA L 

NT:A$="BONO DE 5 

cmiMn n =-.n 

1MA DE LA PIRAMI 

DE":GOSUB 240 





rumuo . 2 

*=; i c o ti i rneirn 






710 GOTO 1070 



V' • O J. m UUJ 







720 GOTO 720 










730 LOC 

ATE P.1 . 1 

4.1: PRINTP.1 . "PUNTOS: " : P 







740 IF 

\J< 1 THEN 

URN 

1070 









750 RET 









760 PPI 

NT " 


aa 



II ■ 





770 PRI 

NT" g 


aaaa 


II * 





780 PRI 

NT" aa 

a 

aa 

a a 


II ■ 

n 





790 PRI 

N T " a a 

a a 

a a 

a a 

a 

ii ■ 

i 





300 PRI 

p. < r. i—i 7—, t 

N T " a a 

a a a 

aa 

a a 

aaa 

ii ■ 

i 





H ! (J r K I 

820 PRI 

830 PRI 

N T “ a 

NT " 

NT " 

aaaa 

aaaaaa 

aaaa 

a aa 

a "; 





a a a a a 

a.aaaaa a 

a a a a a a 

a a 

aaa aaa 

d 

eaa 

a 3. a 0 .3 .0 0 

a a 

aa " ; 





840 PRI 

NT " 

a a 

a 

aaa " ! 





850 PRI 

NT," 

a a a a a a 

a. a a a a a a a a a a a a. a 

a a 

aa " í 
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S60 PRINT"aaaaaaaa aa 
S^O PRINT" aaaa 

830 PRINT" a a aa e 
390 PRINT" aaaaaa 

d aa a a" 

aaaaaaaaaaaaaaaaaa aaaaaaa" 

a a " 

aaaaaa aaaaaaaaaaaaaa a " 

900 PRINT"a a aa 

eaa a" 

910 PRINT" aaaaa aaaaaaaaaaaaaaaaaa aaaaa a 

920 PRINT" aa d 

aa a" 

930 PRINT" aaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaa 

940 PRINT" aa e 




950 PRI NT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 

960 RETURN 



970 DATA 205.96.137.50.47.117.201 
930 RESTORE 970 

990 FOR a=30000 TO 30006:READ b:POKE a, b :NEXT a 
1000 SYMBOL AFTER 97 

1010 SYMBOL 97.124.190.254.190.214.174.34.0 
1020 SYMBOL 98.124.146.213.254.254.170.170.0 
1030 SYMBOL 99.8.161,4.160.9.64,17.68 
1040 SYMBOL 100,8,20,20,73,127.73.8.28 
1050 SYMBOL 101,0.0.62,46,46.20,3.62 
1060 RETURN 

1070 REM *** GAME OVER *** 

1030 FOR A=1 TO 20:FOR B=100 TO 200 STEP AISOUND 1.B.1.15,O,O,31 
1090 INK 0,0:INK 1.26:INK 2.15.O:PAPER O:BORDER 0:PEN 1:MODE O 
1100 PEN 2:L0CATE 6,7:PRI NT"GAME OVER" 

1110 PEN 1 : LOCATE 4 . 1 2 : PR I NT " PUNTOS : " ¡ US ING " ftPtftftftft " ; P 
1120 PEN 3:INK 3,15:LOCATE 5,17:PRINT "OTRA? (S/N)" 

1130 FOR A=1 TO 50:A*=INKEY*:NEXT A 
1140 PEN 1 

1150 IF INKEY(60)=0 THEN RUN 220 
1160 IF INKEY(46)=0 THEN CALL O 
1170 GOTO 1150 





NEXT B:NEXT A 


O 
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POLICIA 




10 REM * ANGEL GARCIA DELGADO * 

20 MODE 0 

30 INK 0.0:INK 1.2ó:INK 2.71INK 3.18 

40 PAPER OIBORDER 0 

50 ORIGIN 313.210 



60 FOR a=0 TO 2*PI STEP PI/70 

70 PLOT 0.0.2 

30 DRAW 300*C03(a),150*SIN(a) 

90 DRAWR 0.30*SIN(a),3 



100 NEXT a 

110 PRINT CHRi(22)+CHRÍ<1>; 

120 Ai="POLICE":A=11 -(0.5*(LEN(AS) ) ) 

130 LOCATE A.12:PRINT Ai; 

140 PRINT CHRÍ(22)+CHRÍ(0); 



150 INK 2.7.0:INK 3.0.13 

160 FOR a= 1 TO 300-.S0UND 1 . a . 1 . 15 : NEXT a 

170 INK 2.18.7:INK 3,7.18 

130 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2, 
190 INK 2,7:INK 3,18 

200 FOR a=1 TO 500:NEXT a 

a*2,1:NEXT a 


210 FOR a=0 TO 50IPRINT CHRÍ(7):F0R b=l TO 50:NEXT b:NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a*)/2):FOR a=l TO LEN(a$) 

250 bÍ=MIDÍ(ai,a,1>:PRINT bi;:IF bi<>" " THEN PRINT CHRÍ(7); 

260 NEXT a 

270 PRINT:PRINT:FOR a= 1 TO 200:NEXT a:R E T U R N 
280 REM *** INICIO DEL PROGRAMA *** 

290 ai="<< POLICIA >>":GOSUB 240:PRINT 

300 Aí="EL POLICIA DEBE CAPTURAR AL LADRON":GOSUB 240:Ai="ANTES DE AGOTARSE EL T 
IEMPO":GOSUB 240 

310 PRINT: AÍ="CONTROLES: ": GOSUB 240:AÍ="JUG. IZQUIERDO JUG. DERECHO" : GOSUB 2 

40:Ai="LADRON POLICI A":GOSUB 240:Ai="Q.A.X.C. 

CURSORES":GOSUB 240 

320 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 240 
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3 30 

340 

350 

360 

i t- I NKh t (GUI 

GOSUB 900 

PAPER 0:INK 
W.INDOW P.1.2. 

*. >0 THEN 330 

0,22:B0RDER 22:M0DE 1 

39,2.2:WINDOW 2,39,5,24 
2,6:INK 3.8 

370 

INK 

1,0:INK 

380 

PEN 

2:GOSUB 

690 



390 

T = 25 

0:GOSUB 

670 



400 

XP = 2 

: YP = 2:XL 

=19:YL=1 

9 


410 

PX = X 

p: py=yp: 

ly=yl:LX 

= XL 


420 

II- NU 1 i NKEY 

’ (0) THEN 

1 

CL 

X 

II 

X 

X 


4 30 

IF NOT INKEY 

(2) THEN 

XP=XP+1 


440 

IF NOT INKEY 

' <1) THEN 

YP=YP+1 


450 

IF NOT INKEY 

(8) THEN 

YP=YP-1 


460 

LOCATE YP.XF 

UCALL 30000:C=PEEK(29999 

470 

IF C 

=97 THEN 

l xp=px:yp=py 


430 

IF C 

=99 THEN 

í GOTO 620 


490 

PEN 

1:LOCATE 

: py, px: print!' ; 

:LOCATE 


500 px=xp:py=yp 


510 

520 

530 

540 

550 

560 

570 

530 
5P0 
600 
610 
620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
720 
7 30 
740 
750 
760 
770 
730 
790 
800 
81 0 
320 
330 
340 
850 
360 
870 


IF NOT X NKEY(67) 
IF NOT XNKEY(69) 
IF NOT INKEY(62) 
IF NOT INKEY(63) 


THEN XL=XL-1 
THEN XL = XL +1 
THEN YL = YL +1 
THEN YL=YL-1 


LOCATE YL.XLlCALL 30000:C=PEEK(29999) 
IF C=97 THEN XL=LX:YL=LY 


IF C = 93 THEN GOTO 620 


PEN 


LOCATE LY.LX:PRINT" 


LOCATE YL.XL:PRINT"c"5 


LX=XL:LY=YL 
T=T-1:GOSUB 670 
GOTO 420 

FOR A=100 TO 200:SOUND 1.A.21NEXT 
MODE 1 


RETIJRN 


PRINT"a 


PRINT 


PRINT 



=•' 

GANA EL POLI 

C I A ": G 

OSUB 240 

: GOTO 


1010 

óO 























p» i. 

14 

, l: PRINTPtl 

, "TIEMPO: "; US 

ING 

*i 

PtPtft" 

; T 

aaaaaaaaaaaaaa 

aaa aaaaaa a aaaaaaaa aaaaa a 11 


a 


a 








a" 


a 

aaaa 

aaaaaaaaaaaaaaaa 

aaa aaaaaaaaaa 

a" 


a 

a 





a a 

a 


a 

a" 


a 

a 

aaaaaaaa aaaaaaaaaaaa aaaa 

a 

a 

a 

a " 


a 

a 

a 



a a 

a a a 

a 

a 

a 

a" 


a 

a 

a 

a a a a 

aa 




a 

a 

a" 


a 

a 

aaaaaaaa aaa 

a a aa aaa aaaa 

a 

a 

a" 


a 








¿a 


a" 


a 

a 

a 

aaaaaaaaaa 

aaaaaaaaaaaaa 

aaa 

a 

a" 


a 

a 

a 

a 

a 


a 

a 


a 

a" 


a 

a 

a 

a aaaaaaaa 

aaaaa 

aaaaa a 

a 

a 

a 

a " 


a 

a 

a 

a 


a a 

a a a 

a 

a 

a 

a " 


a 



aaaaa aa 

a 

a aaa 

aaaa 

a 

a 

a 

a" 


a 

a 

a 

a aa 

a 

a 

aaaa 

a 

a 

a 

a " 


a 

a 

aaaaa aaaaaa 

aaaaaaa a aaa 

a 

a 

a 

a" 


a 

a 






a 

a 

a 

a " 


a 

aaaaaa. aaaaaa. aaaaaaaaaaaaaaaaaa 

aaiaL 

a " 


a 




a 



a" 



IF T <1 THEN 990 
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Mi 


. 1 .. t . í 



















240 


990 
















i n i 













































880 PRINT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"i 
890 RETURN 


900 DATA 

205.96. 

13 

7.50.47. 1 1 

7,20 

1 




910 RESTORE 900 









920 FOR 

a=30000 

TO 

30006 

:read b: i 

POKE a 

. b 

:NEXT a 


930 SYMBOL AFTER 97 

940 SYMBOL 97,O,127,127.127,O,247,247,247 
950 SYMBOL 98.156,190.157.73.62.28.20.54 
960 SYMBOL 99.28,28,3,62.93,221,212,54 
970 SYMBOL 100,74,0,34,136,33,136,1,36 
930 RETURN 

990 MODE i:LOCATE 1,5:A$="EL LADRON HA LOGRADO ESCAPARSE":GOSUB 240:AÍ="DEL POLI 

CIA":GOSUB 240:print:A*="GANA EL LADRONGOSUB 240 

1000 GOTO 1010 

1010 REM *** GAME OVER *** 

1020 FOR A=1 TO 20:F0R B=100 TO 200 STEP AISOUND 1,B,1.15,0,0,31:NEXT B:NEXT A 
1030 INK 0,0:INK 1,26:INK 2,15,O:PAPER O:BORDER 0:PEN 1:MODE O 
1040 PEN 2:L0CATE 6,7:PRINT"GAME OVER" 

1050 PEN 1 : LOCATE 4,1 2 : PR I NT " T IEMPO : " ; US ING " ftftP.PtP.ft " ! T 
1060 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

1070 FOR A=1 TO 50:A$=INKEY$:NEXT A 
1030 PEN 1 

1090 IF INKEY(60)=0 THEN RUN 220 
1100 IF INKEY(46)=0 THEN CALL O 
1110 GOTO 1090 
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CANIBAL 


10 REM ******* CANIBAL ******** 
20 REM * ANGEL GARCIA DELGADO * 
30 REM ******** G.T.S. ******** 
40 REM 
50 MODE O 

60 INK O.O:INK 1.26:INK 2.7:INK 
70 PAPER 0:B0RDER O 
30 ORIGIN 313.210 
90 FOR a=0 TO 2*PI STEP PI/70 
100 PLOT 0.0.2 

110 DRAW 300*C0S(a) . 150*SIN(a > 
120 DRAWR O.30*SIN(a).3 
130 NEXT a 

140 PRINT CHR$(22)+CHR*(1)! 


i. 13 


150 Aí="CANIBAL":A=ll-(0 

160 LOCATE A.12:PRINT A$ 

170 PRTNT rNRÍI?7H-rHBÍ( 

.5*(LEN( 

o) ; 

f\%) ) ) 




130 INK 

190 FOR 

200 INK 

210 FOR 

2.7.0:INK 3.0.18 

a=l TO 300¡SOUND 

2. 13.7: INK 3.7.1 

a=3O0 TO 1 STEP 

1.a. 1 . 1 

3 

-2:SOUND 

5:NEXT a 

1.a.l:SOUND 2.a*2.1:NEXT a 

220 INK 

2.7:INK 3.13 






230 FOR 

a=1 TO 500:NEXT 

a 





240 FOR 

a=0 TO 50:PRINT 

CHR$(7): 

FOR b=1 

TO 50:NEXT b:NEX 

T a 

250 MODE 

1 






bao nrrrn 

i Tin 






270 PRINT TAB(20-LEN(a*> 

/ 2) : F : OR 

a=1 TO LEN(a$) 



280 b$=l» 

IID*<a$.a.1):PRINT b$;:IF 

b¥< >" ” 

THEN PR 

INT CHR^ 

(7) 

290 NEXT 

a. 







300 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 a$="<< CANIBAL >>":GOSUB 270:PRINT 
330 A‘S= "MATA CON TUS FLECHAS A" : GOSUB 270 

340 A$="LOS CANIBALES QUE SE INTRODUZCAN":GOSUB 270:A$="EN TU CAMPAMENTO.": GOSUB 
270 : PRINT : A$= "CONTROLES: 11 : GOSUB 270: A$="CURSOR ARR I 
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BA": 

GOSUB 270:A$="CURSOR ABAJO":GOSUB 

270:A$="SPACE. 

DISPARA FLECHA" 

:GOSUB 270 

350 

360 

PRINT:a*="PULSA -S- PARA 

IF INKEY(60)< >0 THEN 360 

EMPEZAR": 

:GOSUB 270 




370 GOSUB 650 

3S0 BORDER 26:INK 0,26:INK 1,0:INK 2,9 
390 PAPER OíMODE O:PEN 2 

400 FOR A=1 TO 25:PRINT STRING*(20,"e");:NEXT 

410 WINDOW ftl,2,19,2,4:WINDOW 2, 1 9 , ó , 24 : CLS P.1 : CLS 

420 D=l:x=lo: y=i: p=o: fa=o 

430 GOSUB 620 

440 XC=1:YC=5+INT(RND*13) 

450 PEN 1 

460 ON D GOSUB 500,550 

470 LOCATE YC,XC:PRINT" ":XC=XC+l:lF XC>17 THEN GOSUB 610 
480 LOCATE YC,XC:PRINT"a":LOCATE YC.XC+1:PRINT"b" 

490 GOTO 460 

500 IF NOT INKEY(O) THEN X=X-l:lF X<2 THEN X=2 
510 IF NOT INKEY(2) THEN X=X+1:IF X>18 THEN X=18 

520 LOCATE Y,X-1:PRINT" "¡LOCATE Y,X+l:PRINT" ":LOCATE Y,X:PRINT"c" 
530 IF NOT INKEY(47) THEN D=2:S0UND 1,100,10,15,0,0,31 
540 RETURN 

550 LOCATE Y,X:PRINT" ":Y=Y+1:IF Y>17 THEN D=1:FA=FA+1:GOSUB Ó20:Y=1: 
560 LOCATE Y,X:PRINT"c":IF Y=YC THEN IF X=XC OR X=XC+1 THEN GOSUB 580 
570 RETURN 

580 SOUND 2,600.20.15,O,O,10:LOCATE YC,XC:PRINT"d":LOCATE YC,XC+1:PRI 
590 P=P+5:GOSUB 620 
600 D=l:Y;=l 

610 LOCATE YC,XC:PRINT" ":LOCATE YC,XC+1:PRIN T " ":XC=1:YC=5+INT(RND*1 

620 LOCATE M , 2,2: PRINTM , "PTOS: " ¡ P: LOCATE ft1,13,2:PRINTft1,"FA:"SFA 
630 IF FA >7 THEN 720 
640 RETURN 

650 REM SYMBOL AFTER 97 
655 SYMBOL AFTER 32 

660 SYMBOL 97.99.62.107,156,170,190,162,156 
670 SYMBOL 93,190,221,149,157,148,148,54,119 
630 SYMBOL 99,0,0.0,193,127,193,0,0 
690 SYMBOL 100,137,32,10,123.17,63,0,146 
700 SYMBOL 101,111,247,232,27,189,219,196,30 
710 RETURN 

720 REM *** GAME OVER *** 

730 FOR A=1 TO 20:F0R B=100 TO 200 STEP AISOUND 1,B,1,15,O,O,31:NEXT 
740 INK 0,0:INK 1,26:INK 2,15,O:PAPER O:BORDER O:PEN 1:MODE O 
750 PEN 2:LOCATE ó,7:PRI NT"GAME OVER" 

760 PEN i: LOCATE 4,12 : PR I NT " PUNTOS : " ! US ING " PtPtP»PtP>Pt" ; P 
770 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

730 FOR A=1 TO 50:Aí=INKEY*:NEXT A 


790 

PEN 1 




300 

IF INKEY(60)=0 

THEN 

RUN 

250 

310 

IF INKEY(46)=0 

THEN 

CALL 

0 

320 

GOTO 800 





RETURN 

NT " d " 

3):RETURN 


B:NEXT A 
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EXPULSOR 


10 REM * ANGEL GARCIA DELGADO * 

20 MODE O 

30 INK 0.0:INK 1,26:INK 2,7:INK 3,13 

40 PAPER OrBORDER O 

50 ORIGIN 318.210 

60 FOR a=0 TO 2*P I STEP PI/70 

70 PLOT 0,0.2 

30 DRAW 300-K-C0S (a) , 150K-SIN (a) 

90 DRAWR O,30*SIN(a),3 
100 NEXT a 

110 PRINT CHRÍ(22)+CHRÍ(1>! 

120 A*="EXPULSOR":A=11 -(O.5*<LEN(A$))) 

130 LOCATE A. 12:PRI NT A*; 

140 PRINT CHRÍ(22)+CHR$(O); 

150 INK 2.7.0: INK 3,0.18 

160 FOR a=l TO 300:SOUND 1,a,1,15;NEXT a 
170 INK 2,18,7:INK 3,7,18 

130 FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2,a*2.l:NEXT a 

190 INK 2,7:INK 3,18 

200 FOR a-1 TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHR$(7):F0R b=l TO 50:NEXT b:NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a$)/2):FOR a=l TO LEN(a$) 

250 b$=MID$(a$,a,1):PRINT b$;:IF b*<>" " THEN PRINT CHR*(7); 

260 NEXT a 

270 PRINT: PRINT: FOR a= 1 TO 200:NEXT a: RETLIRN 


230 

REh 

*** 

INICIO DEL 

PROGRAMA 

*** 

290 


. < s 

EXPULSOR >> 

"¡GOSUB 240: 

PRINT 


300 AS¡—"RECOGE LAS BOLAS QUE SON":GOSUB 240:A$="EXPULSADAS POR AMBOS LADOS":GOSU 
B 240: A*-" CON LAS PALETAS DE QUE DISPONESGOSUB 240 

jlO PRINT:A$="CONTROLES: ":GOSUB 240:A*="Q. ARRIBA PALA IZQUIERDA": GOSUB 240:A$=" 
A. ABAJO PALA IZQ.":GOSUB 240:A$="P. ARRIBA PALA DER 
ECHA":GOSUB 240:A*="L. ABAJO PALA DER.":GOSUB 240 
320 PRINT:a$="PULSA -S- PARA EMPEZARGOSUB 240 
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MM 







“i 




























, -p| j 1 j i 

í 


f i 

330 

IF INKEY(60)C 

>0 !HtN 330 



I | 1 f.l' [ 





tfü 

uUoUr 








INK C 


' * 



.r "f.“i. tt 





6 n 

M n DF 

o 









” 

20 

INK 2 

. 8: INK 3 

.18:INK 4.6 




. ¡ .: i..i : . i . 

¡ 



2 

30 

PEN 2 

:for a=i 

TO 25:PRINT STR 

INGÍ(20, 

"+");: 

NEXT 




90 

WINDOW M.2.1 

9,2,4:WINDOW 2.1 

9,6,24 








00 

CLS r 

l:CLS:LOCATE 9,1: PR I NT " -f 

■f " : LOCATE 9, 19: F 

RI NT " -f -f " 




4 

no 

PEN 3 

:for a=2 

TO 13:L0CATE 9, 

A:PRINT' 

be":NEXT 





420 

p=o: F 

A=0:GOSUB 660 








4 

)30 

X1 = 1C 

:X2=iu 









440 

XB=2 + 

INT(RND-X-17):YB=INt(RND*2 

) 







4 

)50 

IF YE 

=0 THEN 

YB=11:D=1 








460 

IF YE 

=1 THEN 

YB=8:D=-1 








470 

PEN 1 

:LOCATE 

1.XI¡PRINT" " 








430 

IF NOT INKEY(67) THEN X1=X1-1 

:IF XI<2 

THEN 

XI 

= 2 



490 

IF NOT INKEY(69) THEN X1=X1+1 

:IF XI>1 

3 THEN X 

1 = 13 




500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

300 

810 

820 

330 

340 

350 

360 

370 

330 


LOCATE 
LOCATE 
NOT 


1 . X1:PRI NT"d " 
18.X2:PRINT" 


IF 

IF NOT 
LOCATE 
LOCATE 
YB=YB+(D/2) 


INk'EY (27) 
INKEY(36) 


THEN X2=X2-l: 
THEN X2=X2+l: 


IF X2< 2 THEN X2 = 2 
IF X2 >13 THEN X2=13 


18.X2:PRINT"e" 
YB.XB:PRINT" " 


YB<2 THEN IF XB=X1 


THEN GOTO 
IF X B = X 2 THEN GOTO 610 
YB.XB:PRINT"a" 


IF 

IF YB >17 THEN 
PEN 4¡LOCATE 
GOTO 470 

FOR A=100 TO 200 
GOTO 440 

SOUND 2.600.15.15.0.0.31 
FA=FA+1¡GOSUB 6ó0¡G0T0 440 
GOTO 650 

LOCATE P.1.2.2¡ PRINTM . "PTOS: 
IF FA >4 THEN 730 
RETURN 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 
REM *** 


610 ELSE GOTO 630 
ELSE GOTO 630 


TEP 4¡SOUND 1,A,1,15:NEXT:P=P+5:GOSUB 660 


; p; : lócate ftl. 13,2: PRINTM . "FA: "; fa; 


AFTER 97 

97.60.102.223.191 


93.7.63.241.14. 


191 , 
14.241, 


99.224.252.143.112.112 


255.126,60 
63,7 

143.252.224 


192,192,192,224,124 
.7.62 


100,124,224,19 
101,62,7,3,3,3 
102,0,126,126,126,126,126,126,0 
103.16.69.0.146.0.164,1,72 


GAME OVER *** 

A= 1 TO 20:F0R B=100 TO 200 STEP AISOUND 1,B, 1, 15,0,0,31:NEXT B:NEXT A 
0,0": INK 1,26:INK 2,15,O¡PAPER O:BORDER O¡PEN 1:MODE O 

2:locate ó,7:print"game over" 

1 : LOCATE 4. 12: PRINT"PUNTOS: " ; USING " PtPtPtPiPtPi "; P 
3:INK 3.15:LOCATE 5.17:PRINT "OTRA? (S/N) u 
A=1 TO 50:A$=INKEY$:NEXT A 
1 

INKEY<Ó0>=0 THEN RUN 220 
THEN CALL O 


FOR 
INK 
PEN 
PEN 
PEN 
FOR 
PEN 
IF 

IF INKEY(46)=0 
GOTO 360 
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10 REM * ANGEL GARCIA DELGADO * 



20 MODE 0 

30 INK 0.0:INK 1.2ó:INK 2.7:INK 3.18 

40 PAPER 0:BORDER 0 

50 ORIGIN 318.210 



60 FOR a=0 TO 2*PI STEP PI/70 

70 PLOT 0.0.2 

80 DRAW 300*C0S(a).150*SIN(a) 

90 DRAWR 0.30*SIN(a).3 

100 NEXT a 



110 PRINT CHR*(22)+CHR$(1): 

120 A*="FRONTERA" :A=11-< 0.5* <LEN <A*> ) ) 

130 LOCATE A.12:PRINT A$; 

140 PRINT CHR*(22)+CHRÍ(0); 



150 INK 2.7.0:INK 3.0.18 

160 FOR a=1 TO 300:SOUND 1.a.1,15:NEXT 

a 



170 INK 2.18.7:INK 3.7.18 

180 FOR a = 300 TO 1 STEP -2:S0UND l.a.ÜSOÜND 2.a#2.1:NEXT a 

190 INK 2.7:INK 3.18 

200 FOR a=1 TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHR*(7):FOR b=l TO 50:NEXT b:NEXT a 
220 MODE' 1 
230 GOTO 230 

240 PRINT TAB(20-LEN<a$>/2):FOR a=l TO LEN(a$) 

250 b$=MID$<a$.a.1>:PRINT b¥;:IF b$<>" " THEN PRINT CHR$(7); 

260 NEXT a 

270 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
280 REM -*•** INICIO DEL PROGRAMA *** 

290 a$="<< FRONTERA >>":GOSUB 240:PRINT 

300 A*="IMPIDE QUE LOS FANTASMAS LLEGEN":GOSUB 240:AS="A LA FRONTERA QUE TU":GOS 
UB 240:A$="ESTAS DEFENDIENDO.":GOSUB 240 

310 PRINT:A$="CONTROLES:"¡GOSUB 240:A$="CURSOR ARRIBA":GOSUB 240:A$="CURSOR ABAJ 

0":G0SUB 240:A$ ="SPACE. DISPARA":GOSUB 240 

320 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 240 

330 IF INKEY (60)00 THEN 330 

340 GOSUB 590 

350 PAPER 0:B0RDER 3:INK O.3:MODE 1 
360 INK 1.26:INK 2.20:INK 3.15 

370 PEN 3: FOR A=1 TO 25:PRINT STRING* ( 40 . " g" ) i : NEXT 
380 WINDOW Ptl . 2.39.2.4: WINDOW 2.39.6.24:CLS M:CLS 
390 DIM M(19):F0R A=1 TO 19 

400 N=INT(RND*2) : IF N = 0 THEN M(A)=1 + INT(RND*4) ELSE M<A)=40-INT<RND*4) 

410 NEXT 

420 X=9:XB=X:P=0:GOSUB 580 

430 IF NOT INKEY(O) THEN X=X-1:IF X<1 THEN X=1 
440 IF NOT INKEY(2) THEN X=X+1:IF X>19'THEN X=19 
450 PEN 2:LOCATE 19.XB:PRINT" LOCATE 19.X:PRINT"ab"i 

460 XB=X 

470 IF NOT INKEY(47) THEN GOSUB 530 
480 N=1 + INT (RND-X-18) 

490 LOCATE M(N) .N:PRI NT" ";:IF M(N)>19 THEN M(N)=M(N)-1: IF M(N)=20 THEN 680 

500 IF M(N)<20 THEN M(N)=M(N)+1:IF M(N)=19 THEN 680 
510 PEN 1:LOCATE M(N).N:PRINT"d"; 

520 GOTO 430 

530 PEN 1:LOCATE 1.X:PRI NT"ccccccccccccccccccLOCATE 21.X:PRINT"cccccccccccccc 
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cccc";:ent i. loo. io. i:ent 2 . 1 . 
,50,40,15.0.1:SOUND 130.50.40. 


0 . 2 . 100 . 10 . 1 :SOUND 
15.0.2 


129 


540 IF M(X)>19 THEN P 

550 P=P+5:G0SUE 530 
560 LOCATE 1,X:PRINT' 

1 (X)= 40 ELSE M(X) 

= 1 

"!:LOCATE 21,> 

:: print" 

580 LOCATE ft 1 . 1 1.2 : PRI NTPt 1 . " PUNTOS .. . 
590 SYMBOL AFTER 97 

...";p:RETURN 



600 SYMBOL 97.15.255.255.31.31.255.255.15 


610 

SYMBOL 

98,240,255,255,243,243,255, 

255,240 

620 

630 

SYMBOL 

SYMBOL 

99,0,126,126,0,0,126,126,0 
100,62,73,109,127,65,99,127 

, 85 


640 

650 

660 

670 

630 

690 

700 

710 

720 

730 

740 

750 

760 

770 

730 


101.5.6.5.6.5.6.5.6 

102.32.32.32,32,32,32,32,32 

103,255,161,193,161.193.169.213.255 


SYMBOL 
SYMBOL 
SYMBOL 
RETURN 

REM *** GAME OVER *** 

FOR A=1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1,B, 
XNK 0,0: INK 1,26: INK 2, 15,O:PAPER O:BORDER 0:PEN 
PEN 2:L0CATE ó,7:PRINT”GAME OVER" 

PEN l:LOCATE 4, 12:PRINT"PUNTOS: " 

PEN 3:INK 3,15:LOCATE 5,17:PRINT 
FOR A=1 TO 50:A$=INKEY$:NEXT A 
PEN 1 

IF INKEY(60)=0 THEN RUN 220 


1,15,O,O,31:NEXT B:NEXT A 
l:MODE O 


USING "ftP.PtP.PtP." ! P 
"OTRA? (S/N)" 


IF INKEY(46)=0 
GOTO 760 


THEN CALL O 
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n n 


LABER-BALL 


10 REM * ANGEL GARCIA'DELGADO * 

O MODE O 

O INK 0.0:INK 1.26:INK 2.7:INK 3.13 
40 PAPER 0:B0RDER O 
50 ORIGIN 313.210 
60 FOR a=0 TO 2*PI STEP PI/70 
70 PLOT 0.0.2 

30 DRAW 300*C0S(a),150*SIN(a) 



90 DRAWR 0.30*: 

SIN ( 

a) . 3 











100 NEXT a 













110 PR 

INT CHR* 

(22) 

+CHR$( 

1) : 








120 A$ 

="LABER- 

BALL 

" : A = 

1 1 

- (0. 

5* 

(LEN(A$> 

) ) 






130 LOCATE A.12:PRINT A$; 

140 PRINT CHR$(22>+CHR$<0>; 

150 INK 2.7.O:INK 3.0.13 

160 FOR a=l TO 300:S0UND 1.a.1.15:NEXT a 
170 INK 2.13.7:INK 3.7.13 

130 FOR a=300 TO 1 STEP -2:S0UND 1.a.l:SOUNB 2.a*2.1:NEXT a 

190 INK 2,7:INK 3.18 

200 FOR a=1 TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHR$(7):F0R b=l TO 50:NEXT b:NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a$>/2>:FOR a=l TO LEN(a$> 

250 b$=MID$(aí.a,1):PRINT b$;:IF b$<>" " THEN PRINT CHR$(7)¡ 

260 NEXT a 

270 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 
230 REM *** INICIO DEL PROGRAMA *** 

290 a$¡="<< LABER-BALL >>":GOSUB 240:PRINT 

300 Aí="RECOGE LAS BOLAS DISPERSAS":GOSUB 240:A$="P0R EL LABERINTO. 
":GOSUB 240:A$="EL TIEMPO SE AGOTE.":GOSUB 240 

310 PRINT:A3S="CONTROLES:":GOSUB 240:A$="Q. ARRIBA A. ABAJO“:GOSUB 
ZQUIERDA P. DERECHA":GOSUB 240 

320 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 240 
330 IF INKEY(60)00 THEN 330 
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ANTES DE 
240:A$=" 


















340 

350 

360 

370 

330 


GOSUB 330 

INK 0.0:B0RDER O¡PAPER O: PEN 1:MODE O 
INK 1 .26:INK 2.15 
INK 4.24 

WINDOW P.1 . 1.20. 1.3: WINDOW 1.20.4.25 
390 PEN 2:GOSUB 620 
400 P=0:T=250:GOSUB 590 

PEN 3:INK 3.10.20:FOR A=1 TO 10 
X=1 + INT <RND*20) :Y=1 + INT(RND*20) 

CALL 30000:IF PEEK(29999)=32 THEN LOCATE Y.X:PRINT"b "i ELSE 420 


410 

420 

430 

440 


LOCATE 

NEXT 


Y. x: 


450 

X = 

2: Y=2 

:XB=X:YB= 

Y 



460 

IF 

NOT 

INKEY(67) 

THEN 

H 

1 

X 

II 

X 

470 

IF 

NOT 

INKEY(69) 

THEN 

X = X + 1 

480 

IF 

NOT 

INKEY(34) 

THEN 

Y = Y - 1 

490 

IF 

NOT 

INKEY(27) 

THEI 

N Y = Y +1 


500 
510 
520 
530 
O: IF 
540 
550 
560 
570 
530 
590 
600 
610 
620 


LOCATE Y.X:CALL 30000 
C=PEEK(29999) 

IF C=97 THEN SOUND 1.300.2:X=XB:Y=YB 
IF C =98 THEN 
BO > 9 THEN 


¡LOCATE Y.X:PRINT"c"; 


bo=bo+i:for a=ioo to 200 step 5:sound 2 .a. 1 :next:p=p+t:gosub 59 

920 

PEN 4¡LOCATE YB.XB:PRINT" 

XB=X:YB=Y 
T=T-i:GOSUB 600 
GOTO 460 
580 

ftl . 2.2: PRINTPtl . ' 

Pil . 17.2: PRINTPtl , 

RETURN 

PRINT"aaaaaaaaaaaaaaaaaaaa" 


GOTO 
LOCATE 
LOCATE 


’PT:";P:LOCATE M. 
.USING "PtPtPt":T;:IF 


1 1.2: PRINTPtl . "TIME: 
T <1 THEN 940 


640 

650 

t-'K íni a a 

PRINT"aaaaaa aaaa 

PRINT"a a aaaaa 

a 

a" 

a" 


660 

PRINT"a 

aaaaaaaaaa a a 

a" 


670 

PRINT"a 

a a 

a a a 

a" 


630 

PR I NT " a 

a aaa a 

a aa a a 

a" 


690 

PRINT"a 

aaaa 

a aaaa a 

a" 


700 

PRINT " a 

a a a 

a a 

a" 


710 

PRINT"a 

a aaaaa 

aaaaaaaa 

a" 


720 

PRINT"a 

a 

a 

a" 


730 

PRINT"a 

a aaaaa 

aaa aaaa 

a" 


740 

PRINT"a 

a a a 

aaa a 

a" 


750 

PRINT"a 

aaaa 

a a a 

a" 


760 

PRINT " a 

aaaa 

aaa aa 

a" 


770 

PRINT"a 

a aaa a 

aaa aa 

a " 


730 

PRINT"a 

a a 

a a aa 

a" 


790 

PRINT"a 

aaaaaaa 

aaaaaaaa 

a" 


300 

810 

PRINT"a a" 

PRINT"aaaaaaaaaaaaaaaaaaaa" 


820 

830 

RETURN 

DATA 205.96.187. 

50.47.117.201 

840 

RESTORE 

330 





850 FOR a=30000 
360 SYMBOL AFTER 
370 SYMBOL 97.25 


TO 30006:READ 
97 

5.129.139.189. 


b:POKE a.b:NEXT a 


139.139.129.255 
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880 SYMBOL 98.0.60.102.94.94.126.60.0 
890 SYMBOL 99.O.60.90.126.66.36.90.O 
900 SYMBOL 100.0.72.18.0.84.0.18.0 
910 RETURN 

920 ENT 1.5.-1.1.5.O.1:FOR A=300 TO 1 STEP -5:S0UND 1.A.10.15.0.1:NEXT 

930 P=P+500:GOTO 940 

940 REM *** GAME OVER *** 

950 FOR A=1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1.B.1.15.O.O.31:NEXT B:NEXT A 
960 INK 0.0:1NK 1.26:INK 2.15.0:PAPER O:BORDER O:PEN 1:MODE O 
970 PEN 2:L0CATE ó.7:PRI NT"GAME OVER" 

980 PEN l: LOCATE 4.12 : PRINT " PUNTOS : " i USING " PtPtP»P.P.P«" ¡ P 
990 PEN 3:INK 3.15:L0CATE 5.17:PRINT "OTRA? (S/N)" 

1000 FOR A=1 TO 50:A*=INKEY*:NEXT A 
1010 PEN 1 

1020 IF INKEY(60)=0 THEN RUN 220 
1030 IF INKEY(46)=0 THEN CALL O 
1040 GOTO 1020 
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ESPACIO 


10 SYMBOL AFTER 239 

20 INK 0.0:1NK 1.26:INK 3,24,8:PAPER O 
30 MODE 0:B0RDER OrGOSUB 380 

40 LOCATE 1.13:PEN 3:PRINT" ESPACIO " : FOR t=10 TO 500 STEP 10:S0UND 5,t,l 

o:NEXT 

50 MODE 1 PEN 1 : PRI NT : PRI NT : PRI NT 11 Al regresar de tu paseo espacial " 

60 PRINT " encuentras que tu nave ha sido des-" 

70 PRINT " montada púr unos diminutos seres " 

80 PRINT " galácticos. " 

90 PRINT:PRINT " Debes recontruirla antes de que se" 

100 PRINT " agote tu reserva de oxigeno, para " 

110 PRINT " ello tienes que colocar sus piezas" 

120 PRINT " sobre la plataforma de despegue " 

130 PRINT " empezando por la base y terminando 
140 PRINT " do por el FUEI_Pero." 

150 PRINT1PRINT "!!TEN CUIDADO CON LOS EXTRATERRESTRES!!" 

160 PRINT:PRINT!PRINT” (UTILIZA JOYSTICK 0 CURSOR)" 

170 LOCATE 1.22:PRINT"PARA COMENZAR EL JUEGO PULSA UNA TECLA" 

180 IF INKEYí="" THEN 130 ELSE CLS 

190 SYMBOL 250.24.60.90.126.60.24.231.153 

200 SYMBOL 251.1.3.6.4.131.65.39.31 


210 SYMBOL 252.2.1.1.2.2.2.2.6 

220 SYMBOL 253.123.192.96.32.192.128.224.112 

230 SYMBOL 254.200.135.123.64.64.64.64.96 

240 SYMBOL 240.1.3.3.5.4.5.5.9 






ZDU o T I’ISUL JLH 1. 1U. 1U. 11. 1U. U. 1 

260 SYMBOL 242.123.192.192.160. 

270 SYMBOL 243.30.208.30.203.8C 

280 SYMBOL 244.27.21.21.22.20.2 

290 SYMBOL 245.216.168.168.104. 

U , 11, 1 u 

32.160.1 
i, 203,80, 
!5,27,29 

40.152.2 

60,144 

203 

! 16. 184 




300 SYMBOL 246.50.116.99.116.104.112.96 
310 SYMBOL 247.76.46.193.46.22,14.6.2 

i, 64 






320 SYMBOL 248, 
330 SYMBOL 249, 
340 SYMBOL 255, 

0,0,0,63,127,149 

0.0,0,240,243,44 

',181,149 

,108,44 






181.1 77. 127.63.0 

',0,0,0 
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350 SYMBOL 239.108.36.24! 

360 MODE 1:INK O.OIINK 1 

370 PR=1 

3.240.0.0.0.0 

.26 :border 0 







380 FOR 

390 PLOT 

400 NEXT 

410 DEG 

1=1 TO 640 STEP ■ 

i.RNH*400.1 

4 








420 MOVE 

430 FOR 

440 DRAW 

450 NEXT 

460 MOVE 

470 IF Pl 

480 x = 3 

490 nlx = 

500 mlx= 

20.350 

1=1 TO 360 STEP 3 

25+40*SIN(i).350+40*C0S 

1 7.3S?=i ! F TI 1 1 

( i ) 







R=0 THEN 

40:y=340 
600: nly=: 

-10: m2x = i 

RETURN 

: -f x=270: 

265:n2x= 

650:m3x= 

fy=360 
150: n2y=; 
-10: m4x=( 

350 

650 







510 LOCATE 1.24:PRINT "OXIGENO"; 

520 MOVE 1.15.3:DRAW 250.15:DRAW 
530 MOVE 3.12:FILL 3 

540 TAG 

Rcín Rncno oon 

250.o:draw i.o:i 

3RAW 1.15 




560 2= II 

570 MOVE 

580 MOVE 

590 IF a 

NT(TIME/300) 
x.y.1.O:PRINT CHR$(251) 
x.y-16:PRINT CHR$<252); 
>640 THEN a=0 

;:print chr$(253: 

¡PRINT CHR$(254): 

) ; 

1 






600 a=a+7 

610 mi x= <(a)*2)MOD 640 : m 1 y= ( 60*SIN ( a) ) +240+RND* 1 ó 
620 m3x=( (a)*2)M0D 640 :m3y=( 40*SI N( a ))+ 125+RND*l ó 


630 

m2x = 

((632-a)*2)MOD 640:m2y=(60*SIN(a 

))+200+RND*15 

640 

MOVE 

m 1 x . m 1 y .' 3: PRI NT 

rüp<t / osn ^ ■ 






650 

MOVE 

m3x.m3y.3:PRINT 

CHR*<250>; 



660 

MOVE 

m2x.m2y:PRINT CHR$(250); 



670 

t= ( I 

NT(TIME/300)-z)*2 




630 MOVE 400.10:DRAW 460.10:DRAW 460.0:DRAW 400.0:DRAW 400.10 

690 MOVE 430. 2 : FILL 1 

700 MOVE 250-t.15:PRINT CHRS¡(32>; 

710 IF T >250 THEN 1300 

720 IF M1X+16>X AND MlX<X+32 AND M1Y-16<Y AND MlY>Y-32 THEN TAGOFF:PRINT CHR3M7) 
;:tag:z=z-5 

730 IF M2X+16 >X AND M2X<X+32 AND M2Y-16<Y AND M2Y>Y-32 THEN TAGOFF:PRINT CHR$<7> 
;:TAG: z=z-5 

740 IF M3X+16 >X AND M3X<X + 32 AND M3Y-16<Y AND M3Y>Y-32 THEN TAGOFF:PRINT CHR5M7) 

;:tag: z=z-5 


750 

IF 

INKEY(0)< 

>-l 

OR 

INKEY (72) 0-1 

THEN 

Cl=l:cy=1 

760 

IF 

INKEY(2)< 

>-l 

OR 

INKEY <73)0-1 

THEN 

Cl=l:cv=-1 

770 

IF 

INKEY(8)< 

>-l 

OR 

INKEY (74) 0-1 

THEN 

cl=l:cx=-l 

780 

IF 

INKEY (IX 

>-l 

OR 

INKEY (75) 0-1 

THEN 

cl=l:cx=l 


790 IF c1=0 GOTO 820 

800 MOVE x.y.O.2:PRINT CHR$(251)<¡PRINT CHR$(253); 

810 MOVE x. y-16. O. 2 : PRINT CHR* ( 252 >;: PRINT CHR* < 254 );:c 1 =0 

320 IF cy =1 THEN y=y+8:cv=0 

830 IF cy=-1 THEN y=y T 8:cy=0 

840 IF cx=l THEN x=x+8:cx=0 

850 IF cx=-l THEN x=x-8:cx=0 

860 IF x >640 THEN x=0 
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870 IF nlx>640 THEN nlx=x+30 
380 IF n2x >640 THEN r.2x = x + 30 
390 IF -fx >640 THEN fx=x+31 

900 IF x + 32 >n 1 x AND x<nlx+32 AND y>nlv-32 AND y-32<nly THEN MOVE n1x . ñ1y. ,2:PRIN 
T CHR3M 244) ! ¡PRINT CHR*(245>;:MOVE n1x.n1y-16:PRINT 
CHR*<246)i:PRINT CHR¥<247>;:cn=1:GOTO 970 

910 IF x + 32 >n2x AND x<n2x+32 AND v>n2y-32 AND y-32<n2y THEN MOVE n2x.n2y..2:PRIN 
T CHR3¡ < 240) ;: PRINT CHR$(242);:MOVE r.2x . n2y-16 : PR INT 
CHR$<241)5:PRINT CHR$(243);:cn=1:GOTO 1020 

920 IF x + 32 >-f x AND x< + x + 32 AND y>-fy-32 AND y-32<fy THEN MOVE -f x . + y . . 2 : PR I NT CHR$ 
<248);:PRINT CHRí(249>;:MOVE f x.-fv-16: PRINT CHR$(255 
)!:PRINT CHR$<239);:cn=l:GOTO 1070 
930 MOVE mlx.mly..2:PRINT CHR$(32); 

940 MOVE m3x.m3y:PRINT CHR$<32); 

950 MOVE m2x.m2y:PRINT ÓHR$<32); 

960 GOTO 570 

970 IF cn=l AND h=0 THEN n1x=x+30:n1y=y 

980 IF n1x + 24 >400 AND nlx<460 AND nly<75 THEN n1X=41O:n1y=42:h=1 
990 MOVE nlx.nly.1.O:PRINT CHRS(244>::PRINT CHR$(245); 

1000 MOVE n 1 x.nly-16:PRINT CHR*<246);:PRINT CHR*<247): 

1010 IF cn = 1 THEN 930 

1020 IF c n= 1 AND h=l THEN n2x = x + 26:n2y=y 

1030 IF n2x +24 >400 AND n2x<460 AND n2y<90 AND n2y>32 THEN n2X=41O:n2y=74:h=2 
1040 MOVE n2x. n2y . 1 . O: PRINT CHR$<240) 5 '.PRINT CHR*<242); 

1050 MOVE n2x.n2y-ló:PRINT CHRÍ(241>;:PRINT CHR3¡(243>! 

1060 IF cn=1 THEN 930 

1070 IF cn = l AND h = 2 THEN i x = x + 31 : -f y = y 

1030 IF i x + 20 >400 AND +x<450 AND -f y< 100 THEN +X=410: -fy = -20: y = -20: GOTO 1130 
1090 MOVE i x . +y. 1.3: PRINT CHR3¡ ( 248 ) ¡ : PRINT CHR$¡(249); 

1100 MOVE -f x , f y - 16 : PRINT CHR* < 255 ) ; : PR I NT CHR$<239): 

1110 IF cn = 1 THEN 930 
1120 RETURN 

1130 n2y = n2y + 7:n1y = n1 y+ 7 
1140 nlx=nlx-2:n2x=n2x-2 

1150 MOVE n2x , n2y , 1 , O: PRINT CHR$¡ < 240 );: PRINT CHR$(242); 

1160 MOVE n2x,n2y-16:PRINT CHR$ <241) ; ¡PRINT CHR$<243); 

1170 MOVE nlx,nly:PRINT CHRS<244);:PRINT CHR*<245)5 
1130 MOVE n lx.nly-16:PRINT CHR$<246)i¡PRINT CHR¥<247); 

1190 frame:frame:frame:frame:frame 

1200 IF nly >430 THEN 1270 

1210 MOVE n2x . n2y . O. 2: PRINT CHR* ( 240 ) ; : PR I NT CHR$¡(242); 

1220 MOVE n2x.n2y-16:PRINT CHR5¡ (241);:PRINT CHR«<243); 

1230 MOVE nlx.nly:PRINT CHR$(244);:PRINT CHR*<245)¡ 

1240 MOVE n lx.nly-16:PRINT CHR*<246>!:PRINT CHRí<247); 

1250 MOVE nlx. nly-23: PRINT CHR* < 143 ) ; : PR I NT CHR$¡<143>; 

1260 GOTO 1130 

1270 MODE l: BORDER 17 :INK 0.26 :INK 1.0 

1280 LOCATE 1.10 ¡PRINT "XXX !! ENHORABUENA LO COSEGUISTES !! XXX" 

1290 GOTO 1340 

1300 MODE l: BORDER 17 ¡INK 0.26 :INK 1.0 

1310 LOCATE 5.10 ¡PRINT "XX* LO SIENTO TE HAS QUEDADO XXX" 

1320 PRINT:PRINT" XXX SIN OXIGENO XXX" 

1330 GOTO 1340 

1340 LOCATE 1.19:PRINT ” XXX LO INTENTAS DE NUEVO iS/N¿ XXX" 

1350 A*=INKEV* 
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1360 IF A<S="S" 0R A*= n s" THEN CLEAR: GOTO 190 
1370 IF A$= ,, N" OR A$="n" THEN CLS: END 
1380 GOTO 1350 



FANTASMA 


10 CLEAR 

20 REM fcí&íí&kRí&k PRESENTACION &&<&&&&&& 

30 MODE OIINK O.OíBORDER O 
40 INK 1.3 
50 CLS 

60 LOCATE 3,ó:PRINT"F A N T A S M A" 

70 SOUND 1,568,20,7:SOUND 1,638,20,7:SOUND 1,568,150,7:SOUND 1.758.40.7:SOÜND 1 
716.40.7: SOIJND 1,758.40.7 : SOÜND 1,851,40,7:SOUND 1.9 
56.40.7:SOUND 1,902,170,7:SOUND 1.851,170,7 
80 FOR X=1 TO 700:NEXT 
90 FOR SA1=1 TO 13 

100 LOCATE 4.SA1:PRINT CHRÍ(149):FOR RET=1 TO 200:NEXT RETINEXT SAI 
110 FOR SA2=1 TO 24 

120 LOCATE 16.SA2:PRINT CHR$<133>:FOR RET =1 TO 200:NEXT RET:NEXT 3A2 
130 FOR SA3=1 TO 13 

140 LOCATE 12,SA3:PRINT CHRS(133) : FOR RET=1 TO 200:NEXT RET : NEXT SA3 
150 FOR SA4=1 TO 7 

160 LOCATE 19.SA4:PRI NT CHR$(149):FOR RET =1 TO 200INEXT RET:NEXT SA4 
170 FOR SA5=1 TO 20 

130 LOCATE 8.SA5:PRINT CHR$(138):FOR RET=1 TO 200:NEXT RETINEXT SA5 
190 FOR SA6=1 TO 15 

200 LOCATE 14,SA6:PRINT CHR$(149):FOR RET=1 TO 200:NEXT RET:NEXT SA6 
210 C0=0 

220 X=INT(RND(1)*20) 

230 Y=INT(RND(1)*24) 

240 IF (Y >24 OR Y<1) OR <X>20 OR X<1) THEN 220 
250 LOCATE X.YIPRINT CHR$(143) 

260 SOUND 1,Y,X:SOUND l.CO.Y 
270 CO=CO+l 

280 IF CO >200 THEN 300 


290 GOTO 22C 

300 MODE 1 

) 
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310 INK 0.l:iNK 1.16:CLS 

320 REM BcB^e^ INSTRUCCIONES Ickltkt* 

330 LOCATE 12.3:PRINT"F A N T A S M A" 

340 LOCATE 12.4: PRINT' 1 ===== = === = = = = = = 11 

350 LOCATE 1.6:PRINT"Te encuentras en un oscuro bosque 
la. y delante de ti se planta una casa plagada de fa 
n t asmas horribles que quieren volverte loco. " 

360 PRINT"Con la ayuda de tu tirachinas debes intentar 
ero do 1 imite, d de lo contrario te veras Derdido." 

370 PRINT:PRINT" 4 56" 

380 PRINT" ";CHR$(241);" ";CHR$(241);" 


de las tierras del mas al 


acabar con ellos en un ti 


"iCHRí(241) 


VENTANA" 

DERECHA" 

3" 

" 5 CHRS¡<241 ) ; " ";CHR$(241) 

PUERTA" 

DERECHA" 

450 PEN 3:LOCATE 13.24:PRINT"PULSA UNA TECLA" 

460 F$=INKEY$ 

470 IF F$="" THEN 460 ELSE 480 
480 MODE 0 

490 PAPER 5:B0RDER 1:INK 1.26:CLS 
500 TIEMP0=0 


390 PRINT “ VENTANA VENTANA 

400 PRINT " IZQUIERDA CENTRAL 

410 PRINT:PRINT" 1 

420 PRINT" ” ! CHR3¡ (241 )'; " 

430 PRINT " PUERTA PUERTA 

440 PRINT " IZQUIERDA CENTRAL 


510 REM ====== FANTASMAS ====== 

520 REM ===MARCEL RISQUES 85=== 

530 REM ======================= 

540 REM EcBcBíB-^BcBíEí ESTRELLAS 
550 A=0 

560 ESTREX=INT(RND(1)*640) :ESTREY =INT(RND(1)*400) 

570 PLOT ESTREX.ESTREY:A=A+1 
530 IF A=100 THEN 600 
590 GOTO 560 

600 REM 8£8í8í8í8í8£8<8í8í CASA BcBíSíBí&Bí&Bí&Bí 
610 FOR XCASA=4 TO 17 
620 FOR YCASA=7 TO 17 

630 PEN 3:LOCATE XCASA.YCASA:PRI NT CHR$(143):NEXT:NEXT 


640 REM 8£8£8£8<8£8£8£8<8£8£ SUELO 8£8£8<B<8<8£8£8£E<B<: 

650 FOR SUEX=1 TO 20:FOR SUEY=18 TO 25 

660 PEN 9:L0CATE SUEX.SUEY:PRINT CHR$(127):NEXT:NEXT 


670 REM VENTANAS Bí&BíSt&ac&Bc&eíat 

630 SOUND 1.18.10.5:SOUND 1.1000.4:SOUND 1,200.12,7:SOUND 1.100.18.4 

690 X=0:PEN 3:L0CATE 5.9:PRINT CHR$(131)¡LOCATE 6.9:PRINT CHR$¡ ( 131 ): LOCATE 5.10: 

PRINT CHR3¡ < 140) : LOCATE ó.lOIPRINT CHR3M140) 

700 LOCATE 10.9:PRINT CHR$<131):LOCATE 11.9:PRINT CHR*<131):LOCATE 10.10:PRINT C 
HR$(140):LOCATE ll.lOIPRINT CHRSK140) 

710 LOCATE 15.9:PRINT CHRS¡ ( 131 >: LOCATE 16.9:PRINT CHR$ (131) ¡LOCATE 15.10.-PRINT C 
HR$<140):LOCATE 16.10:PRINT CHR$(140) 

720 REM 8<8£8<:8£8c8£B<:8£8£8£8c PUERTAS 8£8 £ 8<8£8 1 :8<8 ( :8£8<:8£B£ 

730 FOR YPUERTAS=14 TO 16 

740 LOCATE 6.YPUERTAS:PRINT CHR*(206):LOCATE 7.YPUERTAS:PRINT CHRS(206) 

750 LOCATE 1O.YPUERTAS:PRINT CHR$(206):LOCATE 11.YPUERTAS:PRINT CHR$(206) 

760 LOCATE 14.YPUERTAS:PRINT CHR*(206):LOCATE 15.YPUERTAS:PRINT CHR*(206):NEXT 
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760 LOCATE 14.YPUERTAS:PRINT CHR$(20Ó):LOCATE 15.YPUERTAS:PRINT CHR*<206):NEXT 
770 REM kkkkgíRí&k&ck LUNA &8 1 :í í & ! & i fc : ft £ a í 8 i ka t 8 £ 

780 PEN 2:L0CATE 2.2SPRINT CHRí(214):LOCATE 2.3:PRINT CHR$(143>:LOCATE 2.4:PRINT 
CHR$(213)¡LOCATE 3.2IPRINT CHR*(212):LOCATE 3.4:PRI 
NT CHR$(215) 

790 REM 8<8í8iSí8£M<?<&í8í8í8iFANTASMAS&t8£a<:8í8i8í8t8í8£6£ 

800 PEN 4 

810 FAN=INT(RND(1)*6+l) 

820 IF FAM<1 OR FAN >6 THEN 810 

830 IF FAN=1 THEN LOCATE 5.10JPRINT CHR*(224):FOR TI=1 TO 320:X=1:NEXT:GOTO 890 
340 IF FAN=2 THEN LOCATE 11.10:PRINT CHR$(224):FOR TI=1 TO 320:X=2:NEXT:GOTO 890 
350 IF FAN=3 THEN LOCATE 15.10:PRINT CHR$<224):FOR TI=1 TO 320:X=3:NEXT:GOTO 890 
860 IF FAN = 4 THEN LOCATE 7. 15:PRINT CHR$ (224): LOCATE 7.1ó:PRINT CPIR$ < 253 >.: FOR TI 
=1 TO 320:X=4:NEXT:G0T0 390 

870 IF FAN=5 THEN LOCATE 10.15:PRINT CHR$(224):LOCATE 10.16:PRINT CHR$<253):FOR 
TI=1 TO 320:x=5:NEXT:X=1:GOTO 890 

880 IF FAN=6 THEN LOCATE 15.15:PRINT CHR*(224):LOCATE 15.1ó:PRINT CHR$(253):FOR 
TI=1 TO 320:x=6:NEXT:GOTO 390 

890 rem ictt&cicicicMticic disparos 

900 A$=INKEY$:IF A$="4" AND X=1 THEN LOCATE 5.10:PRINT CHRstH 225 ) : FOR Tl=l TO 300 
:NEXT:LOCATE 5.10:PRINT CHR$<238):SOUND 1.50.20:PUNT 
OS=PUNTOS+1:GOTO 670 

910 AS¡=INKEYS:IF A$="5" AND X=2 THEN LOCATE 11.10:PRINT CHR*(225>:FOR TI=1 TO 30 
O:NEXT:LOCATE 11.10:PRINT CHR$(233):SOUND 1.50.20:PU 
NTOS=PUNTOS+1:GOTO 670 

920 AÍ=INKEYS¡: IF AS="6" AND X=3 THEN LOCATE 15.10:PRINT CHR$(225):FOR TI=1 TO 30 
O: NEXT: LOCATE 15.10:PRINT C'HR* ( 238) : SOUND 1.50.20:PU 
NTOS=PUNTOS+1:GOTO 670 

930 A*=INKEYS: IF A*="1" AND X = 4 THEN LOCATE 7.15:PRINT CHR$(225):FOR TI = 1 TO 300 
:NEXT:LOCATE 7.15:PRINT CHR$(238):SOUND 1.50.20:punt 
0S=PUNT0S+1:GOTO 670 

940 A$=INKEY$:IF A*="2“ AND X=5 THEN LOCATE 10.15:PRINT CHR$(225):FOR TI=1 TO 30 
0:NEXT:L0CATE 10.15:PRINT CHR9M238) SOU.ND 1.50.20:PUN 
T0S=PUNT0S+1:GOTO 670 

950 A$=INKEY$:IF A$="3" AND X = ó THEN LOCATEl_5_j_l5SPRINT CHR*(225):FOR TI = 1 TO 30 

O:NEXT:LOCATE 15.15:PRINT CHR$(233):SOUND 1.50.20:PU 

NTOS=PUNTOS+1:GOTO 670 

960 REM ickk&ctxMdc MARCADOR Íík&k&fcaí&í 

970 PEN 3 

980 PEN 6:LOCATE 8.24:PRINT "PUNTOS: "« PUNTOS 
990 REM tLítít&ífckaí&í TIEMPO 8 íÍí8<&£8<8í8íÍ< 

1000 TIEMP0=TIEMP0+1 

1010 IF TIEMP0=40 THEN 1030 

1020 GOTO 670 

1030 REM 8í8í8<:8£Ífe£fc: OTRA PARTIDA a£ÍíBí8í8¿Bí&í 
1040 CLS:PEN 12 

1050 LOCATE 4.18 : PR INT 11 PUNTUAC ION: "! PUNTOS 

1060 LOCATE 3.8:PRINT“GRACIAS CAMPEON" 

1070 LOCATE 2.25:PRINT"OTRA PARTIDA <S/N>" 

1080 L*=INKEYÍ 

1090 IF L*="S" OR L*="s" THEN 10 

1100 IF L3>="N" OR L$="n" THEN MODE 1:PAPER O:PEN 3 

1110 IF NOT (L$="S" OR L*=" s" ) AND NOT (L$¡=" N" OR L$= “ n " ) THEN 1'080 
1120 IF L$="" THEN 1030 
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EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 

“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan¬ 
do a utilizar uno de estos ordenadores, co¬ 
mo si está considerando comprárselo, es¬ 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 

Una gran parte del libro trata del proceso 
de texto. 

Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 



CPC 6128-664-464 



DOMINE EL CODIGO MAQUI¬ 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro¬ 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dosprogramadores 
muy competentes, con gran experiencia en li¬ 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte¬ 
rioridades de la programación en código má¬ 
quina del Amstrad. 

Debe ir trabajando en código máquina del 
Amstrad. 

Debe ir trabajando a lo largo del libro, saltán¬ 
dose las secciones que le presentan una es¬ 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa¬ 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 
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US MEJORES RECUERDO 





Otros Cursos! 

- Introducción a 
la Informática 

- Electrónica icón ex 


Microordenador 
ZX SPECTRUM 


Microordenador 

COMMODORE 


Microordenadores 
AMSTRAD, MSX, PC 


CURSO DE 

BASIC+ 

MICROORDENADORI 


C. Postal. 


. Población 


. Provincia 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEl ISTADO 3-6-83) 
Aragón, 472 (Dpto.REF. T-XZÜ8013 Barcelona. 
Tel(93 1 243 33 06 


Profesión. 


CEAC. Aragón, 472 

|Dpto. ref. t-xz ) 08013 Barcelona 


ott§5f¿¿633° 6 


Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de alto nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador, 


Nombre y apellidos. 


. Edad. 


Domicilio. 


deseo recibir a la mayor 
brevedad posible Información 
sobre el Curso de: _ 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


CEAC 


GRATUITAMENTE 


























